home *** CD-ROM | disk | FTP | other *** search
/ PC Gamer (Italian) 28 / PC Gamer IT CD 28 1-2.iso / MEDIA / REVIEWS.DXR / Internal_11.ls < prev    next >
Encoding:
Text File  |  1997-12-01  |  3.3 KB  |  136 lines
  1. on exitFrame
  2.   set the visible of sprite 11 to rollOver(4)
  3.   set the visible of sprite 12 to rollOver(5)
  4.   set the visible of sprite 18 to rollOver(5)
  5.   set the visible of sprite 13 to rollOver(6)
  6.   set the visible of sprite 19 to rollOver(6)
  7.   set the visible of sprite 14 to rollOver(7)
  8.   set the visible of sprite 20 to rollOver(7)
  9.   set the visible of sprite 21 to rollOver(8)
  10.   set the visible of sprite 15 to rollOver(8)
  11.   set the visible of sprite 16 to rollOver(9)
  12.   set the visible of sprite 22 to rollOver(9)
  13.   set the cursor of sprite 4 to 280
  14.   set the cursor of sprite 5 to 280
  15.   set the cursor of sprite 6 to 280
  16.   set the cursor of sprite 7 to 280
  17.   set the cursor of sprite 8 to 280
  18.   set the cursor of sprite 9 to 280
  19.   set the cursor of sprite 25 to 280
  20.   set the cursor of sprite 26 to 280
  21.   set the cursor of sprite 27 to 280
  22.   set the cursor of sprite 28 to 280
  23.   set the cursor of sprite 29 to 280
  24.   set the cursor of sprite 31 to 280
  25.   set the cursor of sprite 10 to 280
  26.   go("db2")
  27. end
  28.  
  29. on keyDown
  30.   global gAlpha
  31.   cursor(4)
  32.   case the key of
  33.     "a":
  34.       set i to "A"
  35.     "b":
  36.       set i to "B"
  37.     "c":
  38.       set i to "C"
  39.     "d":
  40.       set i to "D"
  41.     "e":
  42.       set i to "E"
  43.     "f":
  44.       set i to "F"
  45.     "g":
  46.       set i to "G"
  47.     "h":
  48.       set i to "H"
  49.     "i":
  50.       set i to "I"
  51.     "j":
  52.       set i to "J"
  53.     "k":
  54.       set i to "K"
  55.     "l":
  56.       set i to "L"
  57.     "m":
  58.       set i to "M"
  59.     "n":
  60.       set i to "N"
  61.     "o":
  62.       set i to "O"
  63.     "p":
  64.       set i to "P"
  65.     "q":
  66.       set i to "Q"
  67.     "r":
  68.       set i to "R"
  69.     "s":
  70.       set i to "S"
  71.     "t":
  72.       set i to "T"
  73.     "u":
  74.       set i to "U"
  75.     "v":
  76.       set i to "V"
  77.     "w":
  78.       set i to "W"
  79.     "x":
  80.       set i to "X"
  81.     "y":
  82.       set i to "Y"
  83.     "z":
  84.       set i to "Z"
  85.     "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z":
  86.       set i to the key
  87.   end case
  88.   put i
  89.   put i into field "alphakey"
  90.   UpdateAlpha()
  91. end
  92.  
  93. on alertIt
  94.   beep()
  95.   alert("You pressed an A")
  96. end
  97.  
  98. on UpdateAlpha
  99.   global gTB
  100.   puppetSound(1, "pioolb")
  101.   mSetCriteria(gTB, "appname", "start", field "alphaKey")
  102.   mSelect(gTB)
  103.   set n to mSelectCount(gTB)
  104.   if n <> 0 then
  105.     put n into field "NumberFound"
  106.     put mGetField(gTB, "category") into field "category"
  107.     put mGetField(gTB, "appname") into field "appname"
  108.     put mGetField(gTB, "highs") into field "highs"
  109.     put mGetField(gTB, "lows") into field "lows"
  110.     put mGetField(gTB, "BottomLine") into field "BottomLine"
  111.     put field "Ratings" & "%" into field "Rating"
  112.     put mGetField(gTB, "AlphSortKey") into field "AlphSortKey"
  113.     put mGetField(gTB, "CoName") into field "CoName"
  114.     put mGetField(gTB, "Address") into field "Address"
  115.     put mGetField(gTB, "City") into field "City"
  116.     put mGetField(gTB, "State") into field "State"
  117.     put mGetField(gTB, "Zip") into field "Zip"
  118.     put mGetField(gTB, "Phone") into field "Phone"
  119.     put mGetField(gTB, "Phone2") into field "Phone2"
  120.     put mGetField(gTB, "email") into field "email"
  121.   else
  122.     CheckAlphaSearch()
  123.   end if
  124.   showSelection()
  125. end
  126.  
  127. on CheckAlphaSearch
  128.   global gAlpha
  129.   set gAlpha to gAlpha + 1
  130.   if gAlpha > 26 then
  131.     set gAlpha to 1
  132.   end if
  133.   put char gAlpha of field "alphaBet" into field "alphakey"
  134.   UpdateAlpha()
  135. end
  136.